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This letter transmits the 1401 Tape-to-Printer Utility Program and 
associated material. 

Abstract for 1401 Tape-to-Printer 

Purpose; 

The 1401 Tape-to-Printer Utility Program provides the means whereby 
tapes of many configurations may be printed in many configurations under 
the control of a series of parameters punched into control cards . 
Specifically, simulation of 717 and 720 printers is provided. However, 
the program additionally allows sequence checking, exception procedures, 
heading lines, page numbering, field selection, file selection and other 
features. 

Use of Program: 

The parameters which specify a particular configuration of tape and 
printed output are punched into a series of control cards. These cards 
are inserted into the program deck which is then loaded and the tape is 
printed. 

Machine Configuration 

The minimum 1401 machine configuration which is needed by this program 
is as follows; 
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1 . 4000 positions of core storage 

2. High -Low -Equal Compare 

3. IBM 1403 Printer, Model 2 

4. One IBM 729 II, IV, V, VI or 7330 Tape Unit 

5. IBM 1402 Card Read-Punch (a system tape may be 
produced, which allows runs without this item) 

In accordance with the program request you submitted, the Basic Program 
Material being forwarded is: 

1. The program deck which is sequentially numbered in 
columns 78-80 and which contains a "3" in column 77. 

2. The documentation of 1401 Tape-to-Printer including flow 
charts, a symbolic listing of the program and a listing 

of the program deck. 

The Optional Program Material, being forwarded only if requested, is the 
symbolic source deck of the 1401 Tape-to-Printer Program. 

The following information will be helpful in implementing this system: 

1 . IBM 1401 DATA PROCESSING SYSTEM 
BULLETIN - UTILITY PROGRAMS FOR 
IBM 1401 TAPE SYSTEMS - Form Number 
J29-1411 (available from IBM Stationery 
Stores, Endicott, N.Y.). 

The 1401 Tape-to-Printer Utility Program will be maintained through the 
use of modification letters. Whenever modifications are made to the program, 
a serially numbered letter, starting with number 1, accompanied by the 
appropriate change cards will be mailed to all users. When the program 
is requested and the modification level is other than 0, all letters will be 
supplied with the material, but no change cards will be forwarded since 
the program deck will always reflect the latest changes. Should the nature 
or quantity of changes make a reassembly necessary, this will be distributed 
as a new version and modification letters to this new version will begin at 1. 
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An Applied Programming Analysis Report (APAR) should be submitted 
through the IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to: 

APAR Processing 
IBM Applied Programming 
Department 302, Building 647 
Endicott, New York 

Any discrepancy between the material you receive and the items listed 
above should be directed to the Manager of the DP Program Information 
Department, IBM, 112 East Post Road, White Plains, New York. 


Program Information Department 


cc: Branch Office 
No attachments sent with carbon 
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1401 Tape -to -Printer Utility Program 


I. Introduction 

The 1401 Tape-to-Printer Utility program will permit the printing of many varied 
tape configurations in many varied print configurations without the need of specific 
programs. The format of the input records and the desired output are specified by 
the user in a series of control cards which are inserted in the program deck prior 
to running on the 1401. The minimum 1401 configuration needed to operate this 
program includes: 

1. 1401 Model C3* 

2. High -Low -Equal Compare 

3. 1403 Model 2 Printer 

4. 1 (one) Tape Unit (Model 729 H, 729 IV, 729 V, 729 VI or 7330) 

5. 1402 Model 1* Card Read Punch. 


n. Specifications 

The following list contains specifications of the Tape-to-Printer Utility Program. 

1. Tapes may contain either fixed length records with fixed blocking or 
variable length records with variable blocking. Variable length records in a block 
must each be followed by a record mark. The last record may or may not have 

a record mark. In addition, fixed or variable length records may be unblocked. 

2. The maximum block length allowed is 1496 characters without Editing; 

1279 with Editing. 

3. Spacing or skipping between records can be controlled either by the control 
card or by the first character of the record. 

4. Spacing or skipping between blocks can be specified in the control card. 

5. Pages may be numbered or not, as desired. 

6. Up to three lines of heading information may be printed at the beginning of 
the listing. 

7. One or two lines of additional heading information may be printed at the 
top of each page of the listing. 

*If system tape has been produced on 1401 Model C3, program may be run on 1401 
Model D3 without 1402 Model 1. 
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8. Up to 99 separate, adjacent files may be printed on one pass of the program 
or any three files may be selected from a tape. In addition, a file may be bypassed 
during the running of the program under sense switch control (SSC). 

9. A continuous field up to 30 characters in length may be specified for sequence 
checking of the records within a file. 

10. Up to two characters of a record may be used to detect exceptions which may 
be punched into cards, punched and printed, or bypassed entirely. 

11. Fixed length records may be printed in either of two modes; 

a) Tape Image - the records would be printed exactly as they appear on tape 
except that they may be printed on more than one line (i. e. , a record 200 characters 
in length, where the characters per line is specified on the control card as 100, would 
print on two lines). 

b) Field Selection - up to 1.6 portions of the record maybe printed on up to 
nine lines in any order. Each field may be 132 characters or less in length and may 
be printed exactly as it appears in the record, or may be zero suppressed (i. e. , high 
order zeroes replaced by blanks), or may be edited before printing (the edit control 
words are supplied by the user as part of the Parameter Set of cards). 

12. Variable length records are printed in tape image as explained for fixed 
length records. However, one additional option is allowed the user. The user may 
specify that if any record exceeds the number of characters to be printed per line, 
only the first line will be printed and the remainder of that record bypassed. 

13. At the end of a file, the number of records which have been processed will 
be printed. 

14. If a tape contains a header label, the user may choose to print, punch or 
check the header label. 

15. The following options are allowed the user in specifying a method to halt 
the program when the job is completed: 

a) Specifying the number of files to be printed. 

b) Selecting files for printing. 

c) Assuming (a) is not known and (b) is not used, specifying the presence 
of a trailer label and letting the program check for it. 

d) Same as (c) except no trailer label but two consecutive End-of-File 
marks on the tape. 

e) Under sense switch control or control card control, halt at the end of 

each file. 

16. A system tape containing the program modified by the user set of control 
cards may be prepared on the Model C3 machine for use on the Model d 3 machine or 
for repetitive use of the same parameters. 
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Format of Control Cards 


Columns 


Meaning 


1-4 (4) 


5-7(3) 


8-10 (3) 


11-12 ( 2 ) 


13(1) 


14(1) 


15-16 (2) 

17-18 (2) 
19-20(2) 
21 ( 1 ) 


Eecord length - including any forms control character and 
special character (record mark) if present. For variable 
length records punch "WW". Variable length records 
must be terminated by a record mark except for the last 
record of the block which need not have a record mark, 
but may have one. 

Blocking - number of records per block; leave blank for 
variable length records since variable blocking is 
permissible for variable length records. 

Characters per line - maximum 132 characters. Used to 
specify the maximum number of characters to be printed 
on each line. Must be punched for all record types. 

Number of files - actual number if printing all files on reel 
or selecting files. If printing starting with first file and 
continuing printing each file for a number less than the 
actual total juse the number to be printed. If unknown, 
leave blank. A file is defined as data on tape between 
tape marks. Therefore, a trailer label at the end of a 
file (or header label at the beginning of a file), if 
preceded and followed by a tape mark, is considered 
to constitute a file. 

Program Operation - it is possible to prepare a system tape 
containing the program modified by the set of control cards, 
heading cards, etc. when the same tape and print configu- 
rations will be repetively used on the Model C machine, or 
when it is desired to use the Model D for the actual 
printing operation. To prepare this system tape, the 
program together with the control cards, heading cards, 
and the Header Label cards should be loaded in the card 
reader as usual. A blank tape should be set on Tape Unit 
#1. The control card should contain a "D” in column 13. 
After producing the system tape, the program will halt. 

If the user has a tape he wishes to print at the same time, 
the Object Tape should be readied on #3, the printer 
readied and the "Start" Button depressed. 

Halt Option code - an option is allowed to halt after printing 
each file. Punch 1 to halt, leave blank if halt is not desired. 
Sense switch B will accomplish the same result. 

First file to be printed - file number (starting from first 
file as file 1) when file selecting. 

Second file to be printed - when file selecting. 

Third file to be printed - when file selecting. 

Page Number option - pages are automatically numbered 
unless the option is used. Punch a 1 to prevent page 
numbering. Otherwise, leave blank. 
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Columns 


Meaning 


22(1) 

23 (1) 

24(1) 

25(1) 

26(1) 

27(1) 

28(1) 

29 (1) 

30-33 (4) 


First Character Space/Skip Control - if the first character 
of each record is to be used to control spacing and skipping 
between records, punch a 1. If no, leave blank. 

(See Appendix A for list of legal characters). 

Suppress Option Code - if column 22 contains a 1, an option 
is allowed when the first character contains an which 
means space suppress to other printers. Pimch a 1 to 
prevent printing of the record; punch 2 to cause a set of 
asterisks to be printed before the record is printed. 

Record Form Control Character - if column 22 is blank, 
column 24 must be punched with the proper character to 
indicate what spacing is desired between records. If left 
blank, single spacing will be used. 

(See Appendix B for list of legal characters). 

Block Form Control Characters - column 25 must be 
punched with the proper character to indicate additional 
spacing between blocks. If left blank, no additional space 
will be taken. 

(See Appendix C for list of legal characters). 

Exception Option code - if there are to be records that will 
not follow the normal printing procedure, this column must 
be punched. Punch 1 to cause exception records to be by- 
passed, punch 2 to cause exception records to be punched 
into cards & punch 3 to cause both punching and normal 
printing. Leave blank if no exceptions. 

Exception Type code - up to 2 columns of a record may be 
designated to mark exceptions. If an "and" condition 
between the columns is desired, punch a 1. If an "or" 
condition is desired, punch a 2. If column 26 is punched, 
column 27 must be punched unless only one column is to be 
checked. 

First character configuration - the actual configuration to 
be checked for must be punched here (character, zone or 
digit). 

First character disposition - column 28 can be a character, 
zone or digit. For presence of a character, punch 1; 
absence of character, punch 2. For presence of a zone, 
punch A; for absence, punch B. For presence of a digit, 
punch J; for absence, punch K. 

First character location - the location within the tape record 
(assuming the start as location 0001) of the first exception 
character. 
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Card No. 
1 
1 
1 
1 

1 

1 


1 

1 

1 

1 

1 


Columns 


Meaning 


34(1) 

35 (1) 
36-39 (4) 
40-43 (4) 

44-45 (2) 
46 (1) 


47(1) 
48(1) 
49-51 (3) 
52(1) 

53(1) 


SecQRd-character configuration - explanation same as 
column 28. 

Second character disposition - explanation same as 
column 29. 

Second character location - explanation same as columns 
30-33. 

Sequence check field location - up to 30 contiguous columns 
of a record may be sequence checked. These columns are 
used to specify the high order position of the field to be 
checked (assuming the start of the record as 0001). 

Sequence check number of characters - the number of 
characters in the field to be sequence checked. 

Number of lines of fixed heading - up to 3 lines of heading 
may be printed on the first page of the listing. If this 
column is left blank, there is no fixed heading. There must 
be 2 cards per heading line. with the first 80 columns in the 
first card; the next 52 columns in columns 1-52 of the 
second card. If spacing is desired between heading lines, 
one of the characters shown in Appendix B should be punched 
in column 80 of the second card. 

Fixed Heading print option - normally, the fixed heading is 
printed on the first page of the report. If it is desired to 
print the fixed heading on a separate page, punch a 1 in 
this column. Otherwise, leave blank. 

Number of lines of variable heading -up to 2 lines of heading 
may be printed on the top of each page of the listing. If this 
column is left blank, there is no variable heading (see columr 
46 for description of cards). 

Number of characters In header label -if there is a header 
label as the first record on the tape, these columns must be 
punched. The maximum number of characters that may be , 
processed is 160. If the label is greater than 160, punch 160. 
Disposition of header label - punch a 1 to print the label; a 
2 to punch the label; a 3 to bypass the label; and a 4 to 
compare the label to cards which are contained in the deck. 
Up to 80 columns, use one card; over 80 (maximum 160) 
use two cards. 

Variable length record single line option - an option is 
allowed to print only one line per record even if the record 
lengths of a variable length tape sometimes or always 
exceed a line length. To exercise this option, punch a ”1" 
in this column. Otherwise, leave blank. 
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Columns 


Meaning 


54-55 (2) 


56-69 (4) 

60-62 (3) 
63-65 (3) 
66 ( 1 ) 


67-70 (4) 
71-73 (3) 
74-76 (3) 
77(1) 
78(1) 

79 (1) 


80(1) 


Number of fields to be selected - for a tape containing 
fixed length records, it is possible to select portions of 
the record for printing. Up to 16 fields may be selected. 
Printing can be on up to 9 lines for a record; both tape and 
print positions are noted; zeroes may be inserted; fields 
may be zero suppressed when printed. Fields may be edited 
before printing. The order of the fields in the control cards 
must be line number order. 

Field 1 - high order record location - the high order position 
of the field to be selected (assuming the start of the record 
as 0001) is punched here. If this field is to be inserted 
zeroes instead of a tape record field, punch ”ZZZZ". 

Field 1 - number of characters - the number of characters 
in the field to be selected or the nunt er of zeroes to be 
printed. 

Field 1 - high order print location - the high order position 
on the printed line of the field which has been selected, or 
zeroes, (assuming the start of the line as 001). 

Field 1 - line number to be printed on - starting with line 1 
for field 1, each field must specify what line it is to be 
printed on. In addition, if the field is to be zero suppressed 
when printed, overpunch column 66 with a "12" punch. If 
the field is to be edited, overpunch column 66 with an "x" 
punch. It should be noted that care must be exercised in 
selecting fields to make sure that the maximum line length 
allowed is not exceeded for any one line. 

Field 2 - high order record location - see columns 60-69 for 
explanation. 

Field 2 - number of characters - see columns 60-62 for 
explanation. 

Field 2 - high order print location - see columns 63-65 
for explanation. 

Field 2 - line number to be printed on - see column 66 for 
explanation. 

Field Selection ^editing - if any of the selected fields is to be 
edited, punch a 1 in column 78. In addition, a card must be 
included in the Parameter Set containing the Edit word for 
each field using this feature. These Edit word cards must 
be in the same order as the fields are in the control cards. 
Trailer label comparison - if the tape contains a trailer 
label which can be used to indicate the end of the printing 
operation, punch a 1 in this column and include a card in 
the Parameter Set containing an image of the trailer label. 

If the trailer is greater than 80 columns in length, only the 
first 80 may be compared. 

Additional Form Spacing - normally, after printing the page 
number and variable heading at the top of a page, an additional 

triple space is taken before the first body line is printed. If 
this additional triple space is not desired, punch a 1 in col. 80. 



- 7 - 


Version 3 


Card No. Columns 


Meaning 


2,3 

1-4 

5-7 

8 rl 0 

11 - 

2,3 

12 - 15 ' 

16-18 

19-21 

22 

2 , 3 

23 - 26 ' 

27-29 

30-32 

33 

2,3 

34-37 

38-40 

41-43 

44 

2 , 3 

45-48 

49-51 

52-54 

55 

2,3 

56-59 

60-62 

63-65 

66 

2,3 

67-70 

71-73 

74-76 

77 

2,3 

Notes: 

78-80 


Fields, 10 
Field 4, 11 


Field 5, 12 


Field 6. 13 


Field 7, 14 


Field 8, 15 


Field 9, 16 
Blank (not used) 


1. All parameter cards except for one control card are optional (depending on procedure) 

2. For fixed length records without field selection where the record length is less than 
the specified number of characters/line, the following are not applicable; 

a) First Character Space /Skfp Control 

b) Record Form Control (single spaced between lines within blocks) 

c) Exceptions 

d) Sequence checking. 

3. Page number will be printed at the top of every page and will be reset for each file 
imless column 21 is punched. 

4. After each file, the count of number of records processed will be printed. 

5. For fixed length records where the record length exceeds the specified number of 

characters/line, the record form control will be exercised only between records* 
single spacing will be used between lines within the record. ^ 



- 8 - 


Version 3 


6. Tape to be printed must be on Tape #3. 

7. To use a system tape (prepared as described in column 13), ready the system tape 
on Tape #1, ready the tape to be printed and the printer and depress "Tape Load" 
Button. 

8. A carriage control tape must be prepared as part of the job set-up. 

9. If simulating the 720 printer, columns 21 and 80 should both be punched with a "1". 
This will prevent page numbering and the additional triple space at the top of a page. 

In addition, if using the first position of the record for carriage control in the Fixed 
Length Tape Image mode, compute the line length (cols. 8-10) by including the first 
position as a print position. (The first position is blanked and printed in print position 
one). For example, if the record length is 121 including the carriage control char- 
acter, specify 181 for line length, not 120. The last 120 positions will print in 
positions 2-121. If it is desired to print in positions 1-120 instead, Field Selection 
should be used. 

10. In all cases, except Field Selection, when the last character of a record is a record 
mark, it is blanked out before printing. 
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IV. Operating Instructions 

A. The most critical part of the operation is the punching of the parameter set of 
cards and the order and insertion point of the cards in the main program deck. Refer 
to page 17 of this write-up for the order and insertion point of the parameter set. 

B. To run the program, use the following procedure: 

1) Set proper forms in printer 

2) Set proper forms control tape in printer 

3) Ready printer i 

4) Place parameter set of cards in deck between card 026-03-069 and 026-03-070 

5) Add patch routine to deck, if any 

6) Place cards in punch if punching 

7) Ready Reader -punch 

8) Place tape to be printed on a tape drive and set that drive to 3 

9) Ready tape at load point 

10) If producing a system tape mount a blank tape (with file protection ring in 
place) on another drive and set to 1. 

11) Set Mode Switch to Run 

12) Press Start Reset Switch 

13) Set desired Sense Switches 

14) Press Load Button 

15) If producing a system tape, the program will halt after creating the tape at 
2995. If a tape is mounted for printing, press start. 

16) If using a system tape, disregard steps 4 and 5. Mount the system tape on 1, 
the object tape on 3, perform steps 11-13 and then press the Tape Load Button. 
The program will halt at 0010; to continue, press start. If only one tape drive 
is available, proceed as before except when the halt at 0010 is reached, remove 
the system tape, mourit the object tape, set the drive to 3 and press start. 

C. Redundancy - ten trys are made to read a redundant record. If after ten trys, if the 
record is still redundant, there are two courses of action possible, depending on the 
setting of Sense Switch F. If the user desires, redundancies may be disregarded and 
just printed by having SSF ON. If SSF is OFF, the program will halt at location 1214 
after ten trys. At this point, again there are two courses of action possible. Setting 
SSG ON and depressing the start button will cause another nine trys to be made at 
reading. If the record is still redundant, and SSF is still OFF, the program will halt 
again at 1214. If, however, the operator wants to try to correct the bad record, he 
should set SSG OFF, set the Tape Select Switch to "D”, and press start. This will 
cause the record to be read again, but redundant characters will enter storage redun- 
dantly and the program will halt at 1247. The operator should immediately set the 
Tape Select Switch back to ”N”. Then, tvith the Mode Switch set to Storage Scan, the 
operator can locate the bad characters and manually correct them. If the record has 
been corrected, the operator should set the instruction address to 0593, the Mode Switch 
to Run and press start. If the operator cannot correct the record, he should set the 
instruction address to 1247, the Mode Switch to Run and press start. If he desires to 
bypass the bad record, he should set the instruction address to 0569, the Mode Switch 

to Run and press start. After settiiig the instruction address, be sure to press the 
Start Reset button before pressing the Start Button. (See Flow Chart, page 19) 


/ 
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V. Examples 

In this section, one example will be given for each main type of configuration; 

A. Fixed Length Tape Image 

B. Fixed Length Field Selection 

C. Variable Length 

A. Fixed Length Tape Image 

1. Input parameters: 

a) Record Length 100 characters 

b) Blocked 3 records 

c) Header Label present on Tape (120 characters) 

d) Number of files on tape unknown 

2. Output parameters: 

a) Print one record/line 

b) Double space between records 

c) Extra spac^ between blocks 

d) One line of heading on each page 

e) Number pages 

f) No Exceptions 

g) Sequence check columns 6-19 

h) Print first and third file only 

i) Print header label 

3. Control card layout: 

Columns How Punched Meaning 


1-4 

0100 

Record Length - 100 

5-7 

003 

Blocking - 3 

8-10 

100 

Line Length = Record Length 

15-16 

01 

First file 

17-18 

03 

Third file 

24 

S 

Double space - record 

25 

J 

Extra space - block 

40-43 

0006 

Hi^ Order Sequence Location 

44-45 

14 

Number of columns 

48 

1 

One heading line /page 

49-51 

120 

Header Label length 

52 

1 

Print header label 


all other columns left blank. 

4. Other cards needed: 

Two additional cards would be needed containing the heading line specified in col. 48. 
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B. Fixed Length Field Selection 

1. Input parameters: same as example A. 

2. Output parameters: 

a) Select three fields from each record. First field contained in columns 5-16, 
print in positions 1-12 exactly as stored. Second field contained in columns 50-59, 
print in positions 1-10 of line below suppressing high order zeroes. Third field 
contained in columns 16-25, edit and print in positions 21-37 of second line. Edit 
control word is ($bb, bbb, bbO, bb&CR). 

b) Double space between records 

c) No heading 

d ) No page numbering 

e) The presence of an ''x" punch in column 10 and the presence of an ”M" in 
column 65 will constitute an exception which will be punched out, but not printed. 

No sequence check 

g) Print first 3 files 

h) Bypass header label 

i) No page numbering 


Control card layout: 


Columns 

How Punched 

Meaning 

1-4 

0100 

Eecord length - 100 

5-7 

003 

Blocking -3 

8-10 

132 

Maximum Line Length 

11-12 

03 

Print 3 files 

21 

1 

No page number 

24 

S 

Double Space - record 

26 

2 

Punch Exceptions 

27 

1 

"and" Type Exception 

28 

"x" (11 punch) 

First Character configuration 

29 

A 

Presence of zone 

30-33 

0010 

Location 

34 

M 

Second character cd nf iguration 

35 

1 

Presence of character 

36-39 

0065 

Location 

49-51 

120 

Header Label length 

52 

3 

Bypass Header Label 

54-55 

03 

3 fields selected 

56-69 

0005 

High Order Field location"^ 

1 

60-62 

012 

No. of characters ' 

l Field 1 

63-65 

001 

High Order Print location i 

r 

66 

1 

Line number J 


67-70 

0050 

High Order Field location 

71-73 

010 

No. of characters v 

Field 2 

74-76 

001 

High Order Print Location 
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3. Control card layout: 


Columns How Punched 

(12-zero supp. ) 

77 B (2-line no ) 

78 1 

Second control card 

0016 
010 

°%llr,edlt) 

K( 2-line no. ) 
All other columns left blank. 


1-4 

5-7 

8-10 

11 


Meaning 

Line No. Disposition Field 2 
Editing being used on this run. 


High Order Field Location 
No. of characters 
High order Print Location 
Line No. & Disposition ) 




4. other cards needed: 

One card containing the edit control word must be included as follows: 
Cblumn 1 tl (Identification) 

2-3 17 (Length of Edit Word) 

4-20 $bb, bbb, bbO. bb&CR (Edit Word) 


C. Variable Length 

1. Input parameters: 

a) 3 files on tape 

b) No header Label 

2. Output parameters: 

a) Print 80 characters/line 

b) Only one line/record 

c) No spacing 

d) No heading 

e) Number pages 

f) No exceptions 

g) No sequence check 

h) Print all files. 

3. Control card layout: 

Columns How Punched 


I- 4 
8-10 

II - 12 
53 


VVVV 

080 

■03 

1 


AH other columns left blank 


4. Other cards needed. 


Meaning 

Variable length record 
Character/line 
No. of files 
One line/record 


Field 3 


None 
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VI. Comments 

A. It will be noted from the examples shown in Section V that the control card punching 
will follow directly from the input and output parameters. In addition, punching is not 
required for features which are notused. However, there are three fields which must 
always be punched for proper operation: 

1) Eecord Length (cols. 1-4) 

2) Blocking (cols. 5-7) except Variable Length 

3) Characters/line (cols. 8-10) 


B. The following errors are checked for to insure correct operation of the program. 


1 - During Assignment Phase of Program 


a) Record Length and/or Character/line not punched 

b) More than three Fixed Heading Lines 

c) More than two Variable Heading Lines 

d) More than 160 columns of Edit words 

e) Block Length exceeds maximum allowed 

f) More than 16 fields in Field Selection 

g) Zero overpunch of line number inf Field Selection 

h) Fields not punched in line number order 

i) One line exceeds characters/line allowed 

j) Incorrect punching - col. 26, 27, 29, 35 


k) Incorrect punch-qol. 52 

l) Header Label does not compare equal 

2. During Object Phase of Program 

a) Files selected for printing not in sequence 

b) Record out of sequence when sequence checking 

c) Redimdancy 

(1) After 10 trys at reading and still redundant 
(unless SSF on) 


(2) After eleventh read with SSG off and Tape Select 
Switch set to 


Address 

Course of 

Displayed 

Action 

3063 

Repunch cont. cards 
and start over 

3064 

rr 

3068 

ir 

3004 

ft 

2972 

Press start or 
start over 

2976 

Repunch conh cards 
and start over 

2976 

ff 

2976 

tt 

2976 

tj 

3038 

Press Start 


(no exceptions) or 
start over 

2836 

Press start or 
start over 

2836 


0787 

Press start (get 
next file) 

0935 

Press start 

1214 

Set SSG, Tape 
Select Switch and 
press start 

1247 

Correct record 
and set proper 


C. Rule for Editing under Fixed Len( ; rth Field Selection Mode - When the e^Jwon^L^fon^^ 
than the field to be edited, subtract the length of the field from the length of the edit word and 
add the difference to the high-order position of the print field. Punch this number in the 
control card devoted to print position. 
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VII. Patching Additional Sub -Routines 

A. Patching may be accomplished with the following two modes of operation: 

a) Fixed Length Record Tape Image mode 

b) Variable Length Record mode 

It is not possible to patch when using the Fixed Length Record Field Selection mode of 
operation, since there is no storage available for the patch. 

B. Patches may be linked to the main routine to perform some operation pertaining 
to individual records. Three different linkages are illustrated which will accomplish 
the most needed operations: 

a) Operate on all records 

b) Operate on Exception records only 

c) Operate on Non -exception records only 

C. Upon reaching the patch routine, the following parameters will be available to 
enable the user to operate on a record: 

a) TAPADD - 3 digits - located in 1602-1604; contains the address of the 
storage location preceding the high-order position of the record in question. 



contained 
in TAPADD 

b) RCLCNV - 3 digits - located in 1590-1592 contains the record length when 
operating in fixed length mode. 

D. The patch routine itself may be written in symbolic form, except where Bf erring 
to the main routine, when actual addresses should be used. Use the origin shown for 
the mode being used and be careful not to exceed the maximum space available for the 
patch. The last two cards must read as shown. The general format is as follows: 

(2164 for Fixed Length, 2345 for Variable Length) 
(First Patch instruction) 


Last Two Cards 


ORG xxxx 


PATCH 


EX 0063 1 

END J 
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After assembly of the patch, eliminate the "END" card and the first three cards. 

Place the additional cards shown in section E or F in front of the assembled deck. 

In front of this entire deck place the following two cards: 

Card 1 - columns 39-66 

, 024H039TO43t(047m071075B039 

Card 2 - columns 56-66 

U0510551056 

These two cards eliminate the need to condense the assembled patch. Then set the 
entire patch deck between card 026-03-142 and card 026-03-143 of the main routine. 

E. Fixed Length Record Tape Image Mode 

1. Patch Origin - 2164 (J64) 

2. Space Available for Patch - 336 location (2164-2499) 

3. (a) To operate on all records with the patch routine, include the following card in 
front of the assembled patch: 

columns 56-70 

L070X351056BJ64 

(b) The Exit instruction from the patch should read B0787 

4. (a). To operate on Exception records only, include the following card in front of 
the assembled patch: 

columns 56-70 

L0708781066BJ-64 

(b) The Exit instruction from the patch should read B1761 (X61) 

5 (a). To operate on Printed records only (i. e. , records which are not exceptions) 
include the following card in front of the assembled patch: 
columns 56-70 

L070930r> 56Bjr64 

(b) The Exit instruction from the patch should read B1736 (X36) 

(c) If the exception option chosen is 3 (punch and print), the instruction shown in 5(a] 
has the same effect as 3(a) (i. e. , process all records). If it is desired not to process 
these printed exceptions with the patch routine, one more card is needed with the card 
in 5(a). It should be noted, however, that this card will cause these exceptions not to 
be sequence checked. 

columns 56-74 

IC)74Y981056BX36W423 

Instruction 5(a) and 5(b) are not affected. 
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F. Variable Length Record Mode 
Patch Origin - 2345 (L45) 

2. Space Available for Patch - 155 locations (2345-2499) 

3(a) To operate on all records with the patch routine, include the following card in 
front of the assembled patch: 

columns 56-70 

L070X581056BL45 

(b) The Exit instruction from the patch should read B0787 

4 (a) To operate on Exception records only, include the following card in front of 
the assembled patch: 

columns 56-70 

L0708781056BL45 

(b) The Exit instruction from the patch should read B1770 (X70) 

5 (a) To operate on Printed records only (i. e. , records which are not exceptions) 
include the following card in front of the assembled patch: 

' columns 56-70 

L0709301056BL45 

(b) The Exit Instruction from the patch should read B1759 (X59) 

(c) If the exception option chosen is 3 (punch and prints, the instruction shown in 5(a), 
has the same effect as 3(a), (i. e. , process all records). If it is desired not to process 
these printed exceptions with the patch routine, one more card is needed with the card 
in 5(a). It should be noted, however, that this card will cause ifcese exceptions; not to 
be sequence checked. 

columns 56-74 

L074X661056BX59W423 
instructions 5 (a) and 5 (b) are not affected.. 
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Vni Deck Complement 


Part n of Program 

^ (cards 026-03-070 thru 026-03-195) 



Edit Word Card(s) 


Max - 16 

-Trailer Label Card 


Max - 1 

■Header Label Card(s) 


Max - 2 

■Variable Heading Card 


Max - 4 

■Fixed Heading Cards 


Max - 6 

-Control Card(s) 

Min - 1 

Max - 3 


Min- 1 

Max - 32 


X 


•Part I of Program 

(cards 026-03-001 thru 026-03-069) 
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trailer label card 


RDIACR ARJTA 


R>ARfA/r A/?£^A 



/ 

Cof/sr/iNr£ 


M<^PR OE C/^A:A^r/OA/ 


R/X£^D 


VAf^fASLE 


23W . 


/=>4f/i7 

SATi/Fcr/CA 


rAPB 


Re AD 


AReA 



Stir CoMrfti, P/ir^ 


7S^ L'mlA 
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Appendix A 

List of Characters Applicable to First Character Space/Skip Control 


Character 


Meaning 


blank 
0 (zero) 
-( 11 ) 

1-9 or J-R 


Suppress spacing (not applicable to 1403 printer; see col. 

single space 

double space 

triple space 

skip to channel 1-9 
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Character 

b (blank) 

S 

T 

A 

B 

C 

D 

E 

F 

G 

H 

I 

+ 

0 



Lecral Characters for Record Form Control 


Meaninc 


single space 
Double space 
Triple space 
Skip to channel 1 
Skip to channel 2 
Skip to channel 3 
Skip to channel 4 
Skip to channel 5 
Skip to channel 6 
Skip to channel 7 
Skip to channel 8 
Skip to channel 9 


Skip to channel 10 
Skip to channel 11 
Skip to channel 12 



(^=4l=ocDoo-<ic»cjia^coDOf--^t-'l7;J^ 
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Appendix C 

Legal Characters for Block Form Control 


Characte r Meaning 

Single space 
Double space 
Triple space 
Skip to channel 1 
Skip to channel 2 
Skip to channel 3 
Skip to channel 4 
Skip to channel 5 
Skip to channel 6 
Skip to channel 7 
Skip to channel 8 
Skip to channel 9 
Skip to channel 10 
Skip to channel 11 
Skip to channel 12 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP CARO 


P \ferSlon>3 

-i- 

,008015, 022026,0300^4,041,0t»5,053,0s7073]026 

L0721 16, 110106, 1051 178 10 1/179, 027A075029)027B00 1C270B026/099T,001 700 111 7100 
,008015,022029,056063/056029 ,0240671056 


PG 

LIN 

CT 

LABEL 

OP 

A OPERAND 

6 OPERAND 

D 

LCC 

INSTRUCTION 

COMMENTS 

1 

010 



CTL 

33 








VERS 3 - 12/1/61 

1 

020 



ORG 

0333 









1 

030 




•TAPE TO PRINTER 

1401 UTILITY - 

MAIN 

LINE 






1 

040 

4 

FLSTST 

B 

NXTPGE 



0333 

8 

425 



BR IF NO FILESEL 

1 

050 

7 


A 

KTMO 

FLSELA 


0337 

A 

W77 

S91 



1 

060 

7 


HCW 

FLSELA 

FILESL+G06 


0344 

M 

S91 

371 


SET ADDRESS 

1 

070 

7 


HCW 

FLSELA 

FILESL+014 


0351 

M 

S91 

379 


FOR NEXT 

1 

080 

7 


HCW 

FLSELA 

FILESL+018 


03Se 

n 

S91 

383 


FILE SELECTED 

1 

090 

e 

FILESL 

B 

FINAL 

0000 


0365 

e 

772 

OCO 


TEST FOR NOFILE 

1 

100 

7 


S 

ONE 

0000 


0373 

S 

W76 

GOO 



1 

no 

7 


C 

0000 

NOFLSP 


0380 

c 

000 

S80 


COMP FOR NXIFILE 

1 

120 

5 


8 

NXTPGE 


S 

0387 

B 

425 

S 


NXTPAGE IF FOUND 

t 

130 

5 

SEARCH 

B 

FSOERR 


u 

0392 

B 

783 

U 


FILE NOS OUT SEO 

1 

140 

8 

LCA 

(U3 

3995 

R 

0397 

L 

IU3 

195 

R 


1 

150 

5 


B 

* +005 


K 

0405 

e 

414 

K 


TEST EOF 

1 

160 

4 


B 

SEARCH 



0410 

B 

397 



NOT YET 

1 

170 

7 


A 

ONE 

NOFLSP 


0414 

A 

W76 

S80 


STEP NO OF FILE 

1 

180 

4 


B 

FILESL+015 



0421 

B 

380 



RETRY COMPARE 

1 

190 

4 

NXTPGE 

B 

* +003 



0425 

6 

431 



FIRST TIME BR 

1 

200 

2 


CC 



1 

0429 

F 

1 



SKIP TO NEh PAGE 

r 

210 

7 


MCM 

KENN 

NXTPGE 


04SI 

M 

W93 

425 


CHG BR TO NO-OP 

1 

220 

4 


CS 

0332 



0438 

/ 

332 




1 

230 

1 


CS 




0442 

/ 





1 

240 

4 

PAGECP 

NCP 

HOPRNT 



0443 

N 

469 



PAGE NO BYPASS 

T 

250 

7 


MCS 

PAGENO 

0299 


0447 

Z 

TOO 

299 


PRINT 


260 

7 


HCH 

PAGE 

0295 


04 64 

M 

S96 

295 


PAGE NO 

1 

270 

1 


W 




0461 

2 





1 

280 

7 


A 

ONE 

PAGENO 


0462 

A 

W76 

TCO 


STEP PAGE NO 

1 

290 

7 

HDPRNT 

LCA 

ADOLNl 

CARRCT+005 


0469 

L 

V73 

5.39 



1 

300 

7 


LCA 

KNOLNS 

LNSCTR 


04 76 

L 

T02 

TG4 


SET NO OF LINES 

1 

310 

7 

PRINTH 

LCA 

CARRCT+005 

HEADLN+003 


0483 

L 

539 

522 


SET UP LINE ADDR 

1 

320 

7 


A 

ONE 

HEADLN+003 


0490 

A 

W76 

522 



1 

330 

7 


S 

ONE 

LNSCTR 


0497 

S 

W76 

T04 



1 

340 

8 


B4Z 

TPREAD 

LNSCTR 

K 

0504 

V 

559 

T04 

K 

BR IF ALL LINES 

1 

350 

7 


Cm 

HtADLN+001 

CARRCT+003 


0512 

1 

520 

537 



1 

360 

7 

HEAOLN 

HCW 

0000 

CARRCT+001 


0519 

M 

000 

535 


HEAD LINE FRM CT 

1 

3 70 

8 


6 

CARRCT+0G2 

CARRCT+001 


0526 

B 

536 

535 


1 

380 

2 

CARRCT 

CC 



0 

0534 

F 

0 




1 

390 

7 


MCH 

0000 

0332 


0536 

H 

GOO 

332 


MOVE HEAD LINE 

1 

400 

1 


H 




0543 

2 




PRINT 

1 

410 

4 


SW 

CARRCT+003 



0544 

, 

537 




1 

420 

7 


A 

K133 

CARRCT+005 


0548 

A 

W91 

539 



1 

4 30 

4 


H 

PRINTH 



0555 

B 

483 



GET NEXT HEAD LN 

1 

440 

4 

TPREAO 

CS 

0332 



0559 

/ 

332 



1 

450 

1 


CS 




0563 

/ 





1 

460 

5 


CC 

* +00 1 


L 

0564 

F 

569 

L 


TRIPLE SPACE 

1 

4 70 

7 

RECRD 

LCA 

3999 

399?- 


0569 

L 

199 

197 



1 

4 80 

8 


LCA 

IU3 

riarea 

R 

0576 

L 

(U3 

NOI 

R 

READ TAPE BLOCK 



S/ersiof^ S 

-Z' 


PG 

LIN 

CT 

LAbtL 

OP 

A OPERAND 

B OPERAND 

D 

LOC 

INSTRUCTION 

COMMENTS 

1 

M90 

4 


LCA 

RMBLNK 



0584 

L 

X06 



1 

500 

5 


8 

REDUND 


L 

0588 

8 

/46 

L 

CHECK REDUNDANCY 

1 

510 

5 

TSITM 

8 

NXTFLE 


K 

0593 

B 

614 

K 

TEST EOF 

1 

520 

7 


MC w 

BLANK 

BYPASS 


0598 

M 

W92 

861 


1 

530 

5 


H 

RECRD 


C 

0605 

B 

569 

C 

SENSE SW C-BYP 

1 

Situ 

4 


B 

START 



06 10 

B 

XII 


TO OBJECT PRGM 

1 

550 

7 

NXTFLb 

A 

ONE 

NCFLSP 


0614 

A 

U76 

S8C 

ACD 1 TO FILES 

1 

560 

2 


CC 



1 

0621 

f 

1 



1 

570 

4 


CS 

0332 



0623 

/ 

352 



1 

580 

1 


CS 




0627 

/ 




1 

590 

7 


MCW 

RECLEG 

0299 


0628 

M 

S76 

299 

PRINT NUMBER OF 

1 

600 

7 


MCS 

KNORCS 

0291 


0635 

Z 

S69 

291 

RECORDS IN FILE 

1 

610 

1 


w 




0642 

2 




1 

620 

7 


MCW 

0332 

SEOHLD 


0643 

M 

332 

U38 

BLANK SEQ FLO 


630 

7 


MCW 

0332 

KNCRCS 


0650 

H 

332 

S69 

BLANK NO RECS 

1 

6U0 

7 


ZA 

KOOl 

PAGENC 


0657 

+ 

X04 

TCO 

RESET PAGE NO 

1 

650 

7 


C 

NCFLSP 

knofls 


0664 

C 

seo 

S78 

COMP FILES PROC 

1 

660 

5 


B 

FINAL 


s 

0671 

B 

772 

S 

OUT IF EQUAL 

1 

670 

4 

FILOPT 

B 

HALTCP 



0676 

6 

760 


END OF FILE HALT 

1 

680 

5 


8 

HALTOP 


8 

0680 

B 

760 

B 

CCNT CO OR ss e 

1 

690 

7 

TAPELD 

LCA 

3999 

RIAREA+080 


0685 

L 

199 

N8ri 


1 

700 

8 


LCA 

(U3 

RIAREA 

R 

0692 

L 

IU3 


READ TO CHECK 

1 

710 

4 


LCA 

FILE4 



0700 

L 

S88 


SECOND EOF MARK 

1 

720 

5 


B 

FINAL 


K 

0704 

B 

772 

K 


1 

7 30 

7 


LCA 

0080 

0180 


0709 

L 

080 

180 


1 

7U0 

8 


B 

CLTRWM 

RIAREA+080 


0716 

B 

764 

N81 


1 

750 

7 

CCHILR 

C 

ONE 

CNE 


0724 

C 

U76 

H76 


1 

760 

7 


LCA 

RIAREA+080 

0181 


0731 

L 

N81 

181 


1 

770 

1 


C 




0738 

C 



COMP FOR TRAILER 

1 

780 

5 


B 

FINAL 


S 

0739 

B 

772 

S 


\ 

r90 

5 


CU 

(U3 


8 

0744 

U 

tU3 

8 


1 

800 

7 

TOFILT 

LCA 

3999 

3997 


0749 

L 

199 

197 


1 

810 

4 


B 

flstst 



0756 

B 

333 


START NEXT FILE 

1 

820 

4 

HAL TOP 

H 

TAPELD 



0760 

. 

685 


EOF TEMP HALT 

1 

8 30 

4 

CLTRriM 

CW 

RIAREA+080 



0764 

) 

N81 



1 

840 

4 


B 

CCMTLR 



0768 

B 

724 



1 

8 50 

5 

FINAL 

CU 

(U3 


R 

0772 

U 

(U3 

R 

REWIND TAPE 

1 

860 

2 


CC 



1 

0777 

F 

1 


RESTORE FORM 

1 

870 

4 


H 

* -00 3 



0779 

. 

779 


HALT-END OF JOB 

1 

88^ 

4 

FSOERR. 

H 

flstst . 



0783 

• 

333 


FILE NOS OUT SEQ 

I 

890 

7 

SU6RTN 

MCW 

PLANK 

EXITCT 


0787 

M 

U92 

U62 

FROM OBJECT PRGM 

1 

900 

4 


B 

SEONCe 



0794 

B 

879 


BYP IF NO exCPNS 

1 

910 

7 

TESTEX 

LCA 

TAPADC 

TESTCl+003 


0798 

L 

H04 

836 

SET UP ADDRESSES 

1 

920 

7 


LCA 

TAPADD 

TESTC2+003 


0805 

L 

H04 

859 

OF EXCEPTION 

1 

930 

7 


A 

ClAODR 

TESTCl+003 


0812 

A 

H45 

836 

CHARACTER 

1 

940 

7 


A 

C2A00R 

TESTC2+003 


0819 

A 

H48 

859 

LOCATIONS 

1 

950 

7 


CW 

TESTCl+001 

TESTC2+001 


0826 

) 

854 

857 


1 

960 

7 

TESTCl 

MCw 

0000 

TSTCHl 


0833 

H 

000 

H51 


1 

970 

7 


C 

TSTCHl 

CHARI 


0840 

e 

W51 

M49 

COMP FIRST CHAR 

1 

980 

5 


B 

TESTC2 


/ 

0847 

B 

856 

/ 

BRANCH ON PROPER 

1 

990 

4 


b 

tXCFNO 



0852 

8 

875 


CGNO IT! ON 

2 

000 

7 

TESTC? 

MCW 

0000 

TSTCH2 


0856 

M 

000 

W52 


2 

010 

7 


C 

TSTCH2 

CHAR2 


086 3 

C 

MS2 

M50 

COMP SECOND CHAR 



' 3 - 


PG 

LIN 

CT 

LABEL 

OP 

A OPERAND 

B OPERAND 

0 

LCC 

INSTRUCTION 

COMMENTS 

2 

020 

5 


B 

SEQNCE 


/ 

C870 

fi 

879 

/ 


BR ON PROPER CNO 

2 

030 

4 

EXCFNO 

B 

EXCPTN 



0875 

B 

X61 



6R-PR0CESS EXCPN 

2 

040 

4 

SEQNCE 

B 

OUTSEO-004 



0879 

6 

927 



BYP IF NO SEQCHK 

2 

050 

7 


LCA 

SEOAOO 

CHKSEQ+003 


0883 

L 

U41 

911 


SET UP SEQUENCE 

2 

060 

7 


A 

TAPAOO 

CHKSEQ*003 


0890 

A 

U04 

911 


CHECK ADDRESS 

2 

070 

7 


NCU 

CHKSEO+003 

CHKSEQ«^010 


0897 

M 

.911 

918 



2 

080 

4 


CM 

CHKSEO^OI 



0904 

) 

909 




2 

090 

7 

CHKSEQ 

C 

occo 

0000 


0906 

C 

000 

000 


CHECK SEQUENCE 

2 

100 

7 


NCU 

QOOO 

0000 


0915 

H 

000 

000 



2 

no 

5 


B 

OUTSEQ 


U 

0922 

B 

93t 

0 


BR-OUT OF SEQNCE 

2 

120 

4 


6 

SETUP2 



0927 

8 

X36 



TO PROCESS RECRD 

2 

130 

4 

OUfSEQ 

H 

* -007 



0951 

. 

927 



RECRD OUT OF SEQ 

2 

140 

4 

SKPSUB 

B 

LINKGE 



0955 

6 

*58 



BYP-NOT FIRST CR 

2 

150 

7 


LCA 

TAPADD 

SKCNTLF003 


0939 

L 

U04 

967 


SET UP ADDRESS 

2 

160 

7 


A 

ONE 

SKCNTL+003 


0946 

A 

H76 

967 


OF FIRST CHAR 

2 

170 

7 


NCH 

SKCNTL+003 

SKCNTL^013 


0953 

M 

967 

977 



2 

180 

4 


CM 

SKCNTL^OOI 



0960 

1 

965 




2 

190 

7 

SKCNTL 

MCU 

0000 

FCCHAR 


0964 

M 

000 

U06 


PICK UP CHAR 

2 

200 

7 


NCH 

BLANK 

0000 


0971 

M 

U92 

000 


BLANK CHAR 

2 

210 

7 


C 

FCCHAR 

ANPRSD 


0978 

C 

U06 

X01 


CHECK FOR SPACE 

2 

220 

5 


B 

SKIP 


/ 

0985 

B 

*18 

/ 


SUPPRESS 

2 

230 

7 

SUPPRS 

NCU 

ONE 

EXITCT 


0990 

N 

U76 

H62 


SPACE SUPPRESS 

2 

240 

4 


B 

NOPNCH 



0997 

B 

ZIO 



OPTION TO BYPASS 

2 

250 

4 


CS 

0332 



1C01 

/ 

332 




2 

260 

! 


CS 




1005 

/ 





2 

270 

7 


NCU 

ASTRSR 

0203 


1006 

N 

U96 

203 


OPTION TO PRINT 

2 

280 

1 


U 




1013 

2 




ASTERISKS 

2 

290 

4 


CS 

0203 



1014 

/ 

203 




2 

300 

8 

SKIP 

B 

LINKGE 

FCCHAR 


1018 

B 

*58 

H06 
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